home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / metamail / contrib / ServiceMail / src / services / find.tcl < prev    next >
Encoding:
Text File  |  1993-05-07  |  389 b   |  13 lines
  1. # find: a WAIS search gateway
  2. #
  3. # salil@eitech.com
  4.  
  5. proc find {switches envelope inputs } {
  6.   set source [lindex $switches 0];
  7.   set keywords [lrange $switches 1 end];
  8.   setfield response DESCRIPTION "Results of your search.";
  9.   setfield response STRING [exec /export/dist/wais/wais-8-b4/bin/waisq -f - -S $source -g $keywords];
  10.   return [mailout [turnaround $envelope] $response];
  11. }
  12.     
  13.